{%MainUnit unit1.pas}
procedure Do1;
begin
  case i of
  1:

  end;
end;

